home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SBOBZ.ARJ / PRECALC.PAS < prev    next >
Pascal/Delphi Source File  |  1994-12-21  |  481b  |  26 lines
  1. program precalculate;
  2.  
  3. const
  4.   psize = 16;
  5.  
  6. var
  7.   point  : array[0..psize,0..psize]of byte;
  8.   i,j    : integer;
  9.   f      : text;
  10.  
  11. begin
  12.   assign(f,'bobe.inc');
  13.   rewrite(f);
  14.   write(f,'bobesize EQU ');
  15.   writeln(f,psize);
  16.   writeln(f,'BOBE label byte');
  17.   for i:=0 to psize do begin
  18.     writeln(F);
  19.    for j:=0 to psize do begin
  20.     write(f,'db ');
  21.     writeln(f,trunc(15/(1+sqrt(sqr(i-psize shr 1)+sqr(j-psize shr 1)))) );
  22.    end;
  23.   end;
  24.   close(f);
  25. end.
  26.